|
200
|
Disables the control
With Graph1
.BeginUpdate
.AutoFit = True
.Series.Add "<img>1</img>Asia(4600),<img>2</img>Africa(1300),<img>3</img>Europe(747),<img>4</img>North America(579),<img>5</img>South Americ" & _
"a(433),<img>6</img>Australia/Oceania(42)"
.Enabled = False
.Legend.Visible = True
.EndUpdate
End With
|
|
199
|
Show icons
With Graph1
.BeginUpdate
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.AutoFit = True
.Series.Add "<img>1</img>Asia(4600),<img>2</img>Africa(1300),<img>3</img>Europe(747),<img>4</img>North America(579),<img>5</img>South Americ" & _
"a(433),<img>6</img>Australia/Oceania(42)"
.SeriesColors = "blue"
.EndUpdate
End With
|
|
198
|
Displays the control's version
With Graph1
Debug.Print( .Version )
End With
|
|
197
|
Changes the control's border (EBN)
With Graph1
.BeginUpdate
.AutoFit = True
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.Appearance = 16777216 ' &H1000000
.Series.Add "Asia(4600),Africa(1300),Europe(747),North America(579),South America(433),Australia/Oceania(42)"
.SeriesColors = "blue"
.EndUpdate
End With
|
|
196
|
Changes the control's border
With Graph1
.BeginUpdate
.AutoFit = True
.Appearance = 1
.Series.Add "Asia(4600),Africa(1300),Europe(747),North America(579),South America(433),Australia/Oceania(42)"
.SeriesColors = "blue"
.EndUpdate
End With
|
|
195
|
Display the logo on the control's background
With Graph1
.BeginUpdate
.Picture = Graph1.ExecuteTemplate("loadpicture(`c:\exontrol\images\card.png`)")
.PictureDisplay = 2
.AutoFit = True
.CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
.Series.Add "1410,1390,331,276,225,213"
.SeriesColors = "blue"
.EndUpdate
End With
|
|
194
|
Changes the control's font
With Graph1
.BeginUpdate
With .Font
.Name = "Tahoma"
.Size = 12
End With
With .CategoryAxis
.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
.MajorGridLines.Color = "lightgray"
End With
With .Series.Add("1410,1390,331,276,225,213")
.Type = "Pie"
.ShowValue = 7 ' ShowValueEnum.exValue Or ShowValueEnum.exLine Or ShowValueEnum.exPoint
.ValueFormat = "`<c>` + category + `<br><c>` + (percent format ``) + `%`"
End With
.Legend.Visible = True
.EndUpdate
End With
|
|
193
|
Shows the value-scroll (vertical scroll bar for area-compatible chart types)
With Graph1
.BeginUpdate
.ValueSize = 8
.Misc(31) = 1.5
.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
With .Series.Add()
.Name = "msft"
.Data = "Open,High,Low,Close"
.Type = "candle"
End With
.EndUpdate
End With
|
|
192
|
No values are shown
With Graph1
.BeginUpdate
.Misc(29) = 0
With .CategoryAxis
.Categories = "China,India,United States,Indonesia,Pakistan,Brazil,"
.MajorGridLines.Color = "lightgray"
End With
With .Series.Add("1410,1390,331,276,225,213")
.ShowValue = 7 ' ShowValueEnum.exValue Or ShowValueEnum.exLine Or ShowValueEnum.exPoint
.ValueFormat = "`<c>` + category + `<br><c>` + value"
End With
.EndUpdate
End With
|
|
191
|
No labels on category-axis are shown
With Graph1
.BeginUpdate
.ValueSize = 15
.Misc(28) = 0
With .CategoryAxis
.Categories = "Date"
.Format = "value mid 9 left 2"
End With
.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
With .Series.Add()
.Name = "msft"
.Data = "Open,High,Low,Close"
.Type = "candle"
End With
.EndUpdate
End With
|
|
190
|
No category grid lins are shown
With Graph1
.BeginUpdate
.ValueSize = 8
.Misc(27) = 0
.CategoryAxis.MajorGridLines.Color = "lightgray"
.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
With .Series.Add()
.Name = "msft"
.Data = "Open,High,Low,Close"
.Type = "candle"
End With
.EndUpdate
End With
|
|
189
|
No category ticks are shown
With Graph1
.BeginUpdate
.ValueSize = 8
.Misc(26) = 0
.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
With .Series.Add()
.Name = "msft"
.Data = "Open,High,Low,Close"
.Type = "candle"
End With
.EndUpdate
End With
|
|
188
|
Defines the lower and upper margins of the valueSize property (CTRL + Middle button and drag to resize the values)
With Graph1
.BeginUpdate
.ValueSize = 8
.Misc(25) = "1,12"
.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
With .Series.Add()
.Name = "msft"
.Data = "Open,High,Low,Close"
.Type = "candle"
End With
.EndUpdate
End With
|
|
187
|
Even though I set the AutoFit property to False, the control still gets resized when I click CTRL + Middle button
With Graph1
.BeginUpdate
.ValueSize = 8
.Misc(25) = "0,8"
With .CategoryAxis
.Categories = "China,India,United States,Indonesia,Pakistan,Brazil,"
.MajorGridLines.Color = "lightgray"
End With
.Series.Add "1410,1390,331,276,225,213"
.EndUpdate
End With
|
|
186
|
Defines the angle (in degrees) the value-line is rotated by, when the values goes up(positive) or down(negative)
With Graph1
.BeginUpdate
.AutoFit = True
.Misc(23) = 0
.Misc(24) = 90
With .CategoryAxis
.Categories = "Green,Black,Red,Lime,Orange,Red"
.MajorGridLines.Color = "lightgray"
End With
With .Series.Add("1410,331,-1390,-276,1225,213")
.ShowValue = 7 ' ShowValueEnum.exValue Or ShowValueEnum.exLine Or ShowValueEnum.exPoint
.ValueFormat = "`<c>` + category + `<br><c>` + (value format ``)"
.Type = "line"
End With
.EndUpdate
End With
|
|
185
|
Defines the additional angle (in degrees) the value-line is rotated by
With Graph1
.BeginUpdate
.AutoFit = True
.Misc(22) = 0
With .CategoryAxis
.Categories = "China,India,United States,Indonesia,Pakistan,Brazil,"
.MajorGridLines.Color = "lightgray"
End With
With .Series.Add("1410,1390,331,276,225,213")
.ShowValue = 7 ' ShowValueEnum.exValue Or ShowValueEnum.exLine Or ShowValueEnum.exPoint
.ValueFormat = "`<c>` + category + `<br><c>` + (percent format ``) + `%`"
End With
.EndUpdate
End With
|
|
184
|
Defines the distance to extend the value-line by
With Graph1
.BeginUpdate
.AutoFit = True
.Misc(21) = 12
With .CategoryAxis
.Categories = "China,India,United States,Indonesia,Pakistan,Brazil,"
.MajorGridLines.Color = "lightgray"
End With
With .Series.Add("1410,1390,331,276,225,213")
.ShowValue = 7 ' ShowValueEnum.exValue Or ShowValueEnum.exLine Or ShowValueEnum.exPoint
.ValueFormat = "`<c>` + category + `<br><c>` + value"
End With
.EndUpdate
End With
|
|
183
|
Defines the distance from the edge of the outer circle where the values are displayed
With Graph1
.BeginUpdate
.Misc(20) = 0
With .CategoryAxis
.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
.MajorGridLines.Color = "lightgray"
End With
With .Series.Add("1410,1390,331,276,225,213")
.Type = "Pie"
.ShowValue = 7 ' ShowValueEnum.exValue Or ShowValueEnum.exLine Or ShowValueEnum.exPoint
.ValueFormat = "`<c>` + category + `<br><c>` + (percent format ``) + `%`"
End With
.ValuePoint = ",,,,,,,red,black,2"
.EndUpdate
End With
|
|
182
|
Defines the distance from the edge of the inner circle where the values are displayed
With Graph1
.BeginUpdate
.Misc(19) = 8
With .CategoryAxis
.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
.MajorGridLines.Color = "lightgray"
End With
With .Series.Add("1410,1390,331,276,225,213")
.Type = "Pie"
.ShowValue = 7 ' ShowValueEnum.exValue Or ShowValueEnum.exLine Or ShowValueEnum.exPoint
.ValueFormat = "`<c>` + category + `<br><c>` + (percent format ``) + `%`"
End With
.EndUpdate
End With
|
|
181
|
Defines the padding between rings of the "pie" chart-type
With Graph1
.BeginUpdate
.Misc(18) = 12
With .CategoryAxis
.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
.MajorGridLines.Color = "lightgray"
End With
With .Series.Add("1410,1390,331,276,225,213")
.Type = "Pie"
.ShowValue = 7 ' ShowValueEnum.exValue Or ShowValueEnum.exLine Or ShowValueEnum.exPoint
.ValueFormat = "`<c>` + category + `<br><c>` + (percent format ``) + `%`"
End With
With .Series.Add("141,139,331,276,225,213")
.Type = "Pie"
.ShowValue = 7 ' ShowValueEnum.exValue Or ShowValueEnum.exLine Or ShowValueEnum.exPoint
.ValueFormat = "`<c>` + category + `<br><c>` + (percent format ``) + `%`"
End With
.EndUpdate
End With
|
|
180
|
Requests for a new layout once the serie's visible property is changed
With Graph1
.BeginUpdate
.Misc(17) = False
With .CategoryAxis
.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
.MajorGridLines.Color = "lightgray"
End With
With .Series.Add("1410,1390,331,276,225,213")
.Type = "Pie"
.ShowValue = 7 ' ShowValueEnum.exValue Or ShowValueEnum.exLine Or ShowValueEnum.exPoint
.ValueFormat = "`<c>` + category + `<br><c>` + (percent format ``) + `%`"
End With
.Legend.Visible = True
.EndUpdate
End With
|
|
179
|
Prevents rotating the labels
With Graph1
.BeginUpdate
.AutoFit = True
.Misc(16) = False
With .CategoryAxis
.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
.MajorGridLines.Color = "lightgray"
End With
.Series.Add("1410,1390,331,276,225,213").Type = "radarColumn"
.SeriesColors = "blue"
.EndUpdate
End With
|
|
178
|
Defines the angle (in degrees) to start the circular-compatible charts (radial or pie)
With Graph1
.BeginUpdate
.AutoFit = True
.Misc(15) = 0
With .CategoryAxis
.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
.MajorGridLines.Color = "lightgray"
End With
.Series.Add("1410,1390,331,276,225,213").Type = "radarColumn"
.SeriesColors = "blue"
.EndUpdate
End With
|
|
177
|
Defines polygonal instead of circular
With Graph1
.BeginUpdate
.AutoFit = True
.Misc(14) = True
With .CategoryAxis
.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
.MajorGridLines.Color = "lightgray"
End With
.Series.Add("1410,1390,331,276,225,213").Type = "radarColumn"
.SeriesColors = "blue"
.EndUpdate
End With
|
|
176
|
Defines the distance (proportionally with the valueSize property) between the first, next and last value of the same category and its border
With Graph1
.BeginUpdate
.AutoFit = True
.Misc(11) = 0.5
.Misc(12) = 0.5
.CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
.Series.Add "1410,1390,331,276,225,213"
.Series.Add "9900,3300,980,190,90,8"
.EndUpdate
End With
|
|
175
|
Ensures that the marginal labels of the value-axis ensure fit the axis's client-rectangle
With Graph1
.BeginUpdate
.AutoFit = True
.Misc(13) = True
.CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
.Series.Add "1410,1390,331,276,225,213"
.SeriesColors = "blue"
.EndUpdate
End With
|
|
174
|
Prevents updating the margins/minimum/maximum of the value-axis when the user scrolls the data
With Graph1
.BeginUpdate
.ValueSize = 6
.Misc(10) = 0
.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
With .Series.Add()
.Data = "Volume"
.Type = "candle"
End With
.EndUpdate
End With
|
|
173
|
Defines the padding for labels and title of the value-axis
With Graph1
.BeginUpdate
.AutoFit = True
.Misc(9) = 16
.CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
.Series.Add "1410,1390,331,276,225,213"
.SeriesColors = "blue"
.EndUpdate
End With
|
|
172
|
Defines the size (height for horizontal axis and width for vertical axis) to display the category-axis (line and ticks)
With Graph1
.BeginUpdate
.AutoFit = True
.Misc(8) = 16
.ValueAxis.OffsetLabel = "16,16"
.CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
.Series.Add "1410,1390,331,276,225,213"
.SeriesColors = "blue"
.EndUpdate
End With
|
|
171
|
Defines the padding for labels and title of the category-axis
With Graph1
.BeginUpdate
.AutoFit = True
.Misc(7) = 16
.CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
.Series.Add "1410,1390,331,276,225,213"
.SeriesColors = "blue"
.EndUpdate
End With
|
|
170
|
Defines the size (height for horizontal axis and width for vertical axis) to display the category-axis (line and ticks)
With Graph1
.BeginUpdate
.AutoFit = True
.Misc(6) = 16
With .CategoryAxis
.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
.OffsetLabel = "0,-16"
End With
.Series.Add "1410,1390,331,276,225,213"
.SeriesColors = "blue"
.EndUpdate
End With
|
|
169
|
Defines the minimum/maximum portion (as a proportion of major unit, as a numeric-value between 0 and 1) to extend the axis before the first/after the last value of the serie (minimum, maximum value)
With Graph1
.BeginUpdate
.AutoFit = True
.Misc(4) = 1
.Misc(5) = 1
.CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
.Series.Add "1410,1390,331,276,225,213"
.SeriesColors = "blue"
.EndUpdate
End With
|
|
168
|
Defines the number of digits to appear after the decimal point (as it is)
With Graph1
.BeginUpdate
.AutoFit = True
.Misc(3) = -1
.CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
.Series.Add("1410.1211,1390.8999,331.3421,276.8991,225.0023,213.2231").ShowValue = 7 ' ShowValueEnum.exValue Or ShowValueEnum.exLine Or ShowValueEnum.exPoint
.SeriesColors = "blue"
.EndUpdate
End With
|
|
167
|
Defines the number of digits to appear after the decimal point
With Graph1
.BeginUpdate
.AutoFit = True
.Misc(3) = 3
.CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
.Series.Add("1410.1211,1390.8999,331.3421,276.8991,225.0023,213.2231").ShowValue = 7 ' ShowValueEnum.exValue Or ShowValueEnum.exLine Or ShowValueEnum.exPoint
.SeriesColors = "blue"
.EndUpdate
End With
|
|
166
|
Defines the inferior and superior limits of the number of major-unit intervals an axis can display
With Graph1
.BeginUpdate
.AutoFit = True
.Misc(2) = "2"
.CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
.Series.Add "1410,1390,331,276,225,213"
.SeriesColors = "blue"
.EndUpdate
End With
|
|
165
|
Defines the base major-units alternatives (separated by comma) the control uses to calculate the major-unit for the axes
With Graph1
.BeginUpdate
.AutoFit = True
.Misc(1) = "5"
.CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
.Series.Add "1410,1390,331,276,225,213"
.SeriesColors = "blue"
.EndUpdate
End With
|
|
164
|
Customizes the tooltips to show on category-axis, when the crosshair intersects the category-axis
With Graph1
.BeginUpdate
.AutoFit = True
With .ValueAxis
.Format = "value + `°`"
.CursorFormat = "``"
End With
.CategoryAxis.CursorFormat = "`<b><fgcolor F0F0F0> ` + value + ` `"
With .Series.Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17)," & _
" Dec(6 15)","Spain")
.Type = "RangeColumn"
.CursorFormat = "%V0 +`° - ` + %V1 + `°`"
End With
.SeriesColors = "green"
With .Cursor
.Visible = True
.SerieTooltipBackColor = "black"
.SerieTooltipForeColor = "rgb(254,254,254)"
.TooltipPad = 4
.ShowCursorValueLine = False
End With
.EndUpdate
End With
|
|
163
|
Defines the configuration options to show the grid lines and labels between for the overview panel
With Graph1
.BeginUpdate
With .ValueAxis
.Format = "value / 1000000"
.MajorUnit = 50000000
End With
With .CategoryAxis.OverviewGridLines
.Format = "`<fgcolor red><b>` + (value left 4)"
.Color = "red"
.Style = 1
.Width = 2
End With
.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
.SeriesColors = "blue"
.Series.Add "Volume"
.Overview.Visible = True
.EndUpdate
End With
|
|
162
|
Add additional grid-lines for categories
With Graph1
.BeginUpdate
.AutoFit = True
With .CategoryAxis
.Categories = "China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico"
.MajorGridLines.Color = "lightgray"
With .ChartGridLines
.Format = "value = `Pakistan`"
.Align = 1024
.Width = 2
.Color = "black"
.Skip = 1
End With
End With
.Series.Add "1410,1390,331,276,225,213,211,166,145,130"
.SeriesColors = "lime"
.EndUpdate
End With
|
|
161
|
Add grid-lines for categories
With Graph1
.BeginUpdate
.AutoFit = True
With .CategoryAxis
.Categories = "China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico"
.MajorGridLines.Color = "lightgray"
End With
.Series.Add "1410,1390,331,276,225,213,211,166,145,130"
.SeriesColors = "lime"
.EndUpdate
End With
|
|
160
|
Shifts horizontally or vertically the labels relative to their original positions
With Graph1
.BeginUpdate
.ValueSize = 48
With .CategoryAxis
.Categories = "China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico"
.OffsetLabel = "0,-22"
.Tfi = "<fgcolor red> bold"
End With
.Series.Add "1410,1390,331,276,225,213,211,166,145,130"
.SeriesColors = "lime"
.EndUpdate
End With
|
|
159
|
Combines/Merges categories sharing consecutive names according to the Format property
With Graph1
.BeginUpdate
.AutoFit = True
.CategoryAxis.Visible = True
With .CategoryAxes.Add("Winter,Winter,Spring,Spring,Spring,Summer,Summer,Summer,Autumn,Autumn,Autumn,Winter")
.Format = "value"
.Split = True
.MajorGridLines.Color = "black"
End With
.ValueAxis.Format = "value + `°`"
.Series.Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17)," & _
" Dec(6 15)","Spain").Type = "RangeColumn"
.SeriesColors = "lime"
.EndUpdate
End With
|
|
158
|
Combines/Merges categories sharing consecutive names according to the Format property
With Graph1
.BeginUpdate
.ValueSize = 6
.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
With .CategoryAxis
.Categories = "Date"
.Format = "dateS(value left 7) format `MMM`"
.Split = True
.MajorGridLines.Color = "lightgray"
End With
With .Series.Add()
.Name = "msft"
.Data = "Open,High,Low,Close"
.Type = "candle"
End With
.EndUpdate
End With
|
|
157
|
Defines the category-axis's background color
With Graph1
.BeginUpdate
.AutoFit = True
.CategoryAxis.Visible = True
With .CategoryAxes.Add("Winter,Winter,Spring,Spring,Spring,Summer,Summer,Summer,Autumn,Autumn,Autumn,Winter")
.Format = "value"
.Split = True
.Tfi = "bold"
.Color = 14474460
End With
.ValueAxis.Format = "value + `°`"
.Series.Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17)," & _
" Dec(6 15)","Spain").Type = "RangeColumn"
.Series.Add("Jan(-4 2), Feb(-3 4), Mar(1 10), Apr(5 16), May(10 21), Jun(13 25), Jul(15 28), Aug(14 27), Sep(10 22), Oct(5 15), Nov(0 7), De" & _
"c(-3 3)","Romania").Type = "RangeColumn"
With .Legend
.Visible = True
.Dock = 3
End With
.EndUpdate
End With
|
|
156
|
Defines the color, size, style, skip and step configuration options of the major ticks to be shown on the value-axis
With Graph1
.BeginUpdate
.AutoFit = True
.ValueAxis.Format = "value + `°`"
With .CategoryAxis.MajorTicks
.Color = "red"
.Width = 4
.Style = 0
.Skip = 3
.Step = 2
End With
.Series.Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17)," & _
" Dec(6 15)","Spain").Type = "RangeColumn"
.SeriesColors = "green"
.EndUpdate
End With
|
|
155
|
Defines the color, size, style, skip and step configuration options of the major grid-lines to be shown by the value-axis on the chart panel
With Graph1
.BeginUpdate
.AutoFit = True
.ValueAxis.Format = "value + `°`"
With .CategoryAxis.MajorGridLines
.Color = "red"
.Width = 4
.Style = 0
.Skip = 3
.Step = 2
End With
.Series.Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17)," & _
" Dec(6 15)","Spain").Type = "RangeColumn"
.SeriesColors = "green"
.EndUpdate
End With
|
|
154
|
Defines the color, size and style to display the line of the category-axis
With Graph1
.BeginUpdate
.AutoFit = True
.ValueAxis.Format = "value + `°`"
With .CategoryAxis.AxisLine
.Color = "red"
.Width = 2
.Style = 0
End With
.Series.Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17)," & _
" Dec(6 15)","Spain").Type = "RangeColumn"
.SeriesColors = "green"
.EndUpdate
End With
|
|
153
|
Specifies the rotation angle (in degrees) for the title and labels of the category-axis, in 'labels,title' format
With Graph1
.BeginUpdate
.AutoFit = True
.ValueAxis.Format = "value + `°`"
.CategoryAxis.Angle = "-90"
.Series.Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17)," & _
" Dec(6 15)","Spain").Type = "RangeColumn"
.SeriesColors = "green"
.EndUpdate
End With
|
|
152
|
Defines the title of the category-axis
With Graph1
.BeginUpdate
.AutoFit = True
.ValueAxis.Format = "value + `°`"
.CategoryAxis.Title = "<b>Range-Temperature"
.Series.Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17)," & _
" Dec(6 15)","Spain").Type = "RangeColumn"
.SeriesColors = "green"
.EndUpdate
End With
|
|
151
|
Changes the font attributes to apply on the title and labels of the category-axis
With Graph1
.BeginUpdate
.AutoFit = True
With .CategoryAxis
.Categories = "China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico"
.Tfi = "<fgcolor red> Tahoma 7 bold"
End With
.Series.Add "1410,1390,331,276,225,213,211,166,145,130"
.SeriesColors = "blue"
.EndUpdate
End With
|
|
150
|
Defines the direction of the category axis
With Graph1
.BeginUpdate
.AutoFit = True
With .CategoryAxis
.Categories = "China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico"
.Reverse = True
End With
.Series.Add "1410,1390,331,276,225,213,211,166,145,130"
.SeriesColors = "blue"
.EndUpdate
End With
|
|
149
|
Aligns the category-axis to bottom/right or top/left side of the view
With Graph1
.BeginUpdate
.AutoFit = True
With .CategoryAxis
.Categories = "China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico"
.Align = 0
End With
.Series.Add "1410,1390,331,276,225,213,211,166,145,130"
.SeriesColors = "blue"
.EndUpdate
End With
|
|
148
|
Hides the category axis
With Graph1
.BeginUpdate
.AutoFit = True
With .CategoryAxis
.Categories = "China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico"
.Visible = False
End With
.Series.Add "1410,1390,331,276,225,213,211,166,145,130"
.SeriesColors = "blue"
.EndUpdate
End With
|
|
147
|
Customizes the labels to show on category axis
With Graph1
.BeginUpdate
.AutoFit = True
With .CategoryAxis
.Categories = "China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico"
.Format = "(index < 2 ? `<b>` : `<fgcolor gray>`) + value"
End With
.Series.Add "1410,1390,331,276,225,213,211,166,145,130"
.SeriesColors = "blue"
.EndUpdate
End With
|
|
146
|
Defines the categories (method 2)
With Graph1
.BeginUpdate
.AutoFit = True
.Series.Add "China(1410),India(1390),United States(331),Indonesia(276),Pakistan(225),Brazil(213),Nigeria(211),Bangladesh(166),Russia(145),Me" & _
"xico(130)"
.SeriesColors = "blue"
.EndUpdate
End With
|
|
145
|
Defines the categories (method 1)
With Graph1
.BeginUpdate
.AutoFit = True
.CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico"
.Series.Add "1410,1390,331,276,225,213,211,166,145,130"
.SeriesColors = "blue"
.EndUpdate
End With
|
|
144
|
Adds multiple category-axes
With Graph1
.BeginUpdate
.AutoFit = True
.CategoryAxis.MajorGridLines.Color = "lightgray"
With .CategoryAxes.Add("Winter,Winter,Spring,Spring,Spring,Summer,Summer,Summer,Autumn,Autumn,Autumn,Winter")
.Format = "value"
.Split = True
.Tfi = "bold"
.MajorGridLines.Color = "black"
End With
.ValueAxis.Format = "value + `°`"
.Series.Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17)," & _
" Dec(6 15)","Spain").Type = "RangeColumn"
.Series.Add("Jan(-4 2), Feb(-3 4), Mar(1 10), Apr(5 16), May(10 21), Jun(13 25), Jul(15 28), Aug(14 27), Sep(10 22), Oct(5 15), Nov(0 7), De" & _
"c(-3 3)","Romania").Type = "RangeColumn"
With .Legend
.Visible = True
.Dock = 3
End With
.EndUpdate
End With
|
|
143
|
Redefines the major-unit of the value-axis
With Graph1
.BeginUpdate
.AutoFit = True
.ValueAxis.MajorUnit = 1000
.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.Misc(6) = 3
End With
End With
.EndUpdate
End With
|
|
142
|
Redefines the margins/limits of the value-axis
With Graph1
.BeginUpdate
.AutoFit = True
With .ValueAxis
.Min = -100
.Max = 6000
End With
.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.Misc(6) = 3
End With
End With
.EndUpdate
End With
|
|
141
|
Defines the start/end position of the value-axis (relative to full axis)
With Graph1
.BeginUpdate
.AutoFit = True
With .ValueAxes
.Add("p").End = 0.75
With .Add("a")
.End = 0.25
.Visible = False
.ColorChart = 16119285
.Reverse = True
.MajorGridLines.Width = 0
End With
End With
With .CategoryAxis
.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
.MajorGridLines.Color = "lightgray"
End With
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.Axis = "p"
.Type = "Line"
.Misc(6) = 3
End With
With .Add("4458,3037,1018,2470,1784,1018,856")
.Name = "Area"
.Axis = "a"
End With
End With
.Legend.Visible = True
.EndUpdate
End With
|
|
140
|
Customizes the tooltips to show on value-axis, when the crosshair hovers the chart
With Graph1
.BeginUpdate
.AutoFit = True
With .ValueAxis
.Format = "value format `0`"
.CursorFormat = "value format `0`"
End With
.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.Misc(6) = 3
End With
End With
.Cursor.Visible = True
.EndUpdate
End With
|
|
139
|
Hides the tooltip that's shown over the value-axis, while cursor hovers the serie
With Graph1
.BeginUpdate
.AutoFit = True
.ValueAxis.CursorFormat = "``"
.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.Misc(6) = 3
End With
End With
.Cursor.Visible = True
.EndUpdate
End With
|
|
138
|
Shifts horizontally or vertically the labels relative to their original positions
With Graph1
.BeginUpdate
.AutoFit = True
.ValueAxis.OffsetLabel = "4,8"
.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.Misc(6) = 3
End With
End With
.EndUpdate
End With
|
|
137
|
Defines the color to apply on the chart's background right to the value-axis
With Graph1
.BeginUpdate
.AutoFit = True
.ValueAxis.ColorChart = "red"
.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.Misc(6) = 3
End With
End With
.EndUpdate
End With
|
|
136
|
Changes the value-axis's background color
With Graph1
.BeginUpdate
.AutoFit = True
.ValueAxis.Color = "red"
.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.Misc(6) = 3
End With
End With
.EndUpdate
End With
|
|
135
|
Defines the color, size, style, skip and step configuration options of the major grid-lines to be shown by the value-axis on the chart panel
With Graph1
.BeginUpdate
.AutoFit = True
With .ValueAxis.MajorGridLines
.Color = "red"
.Width = 4
.Style = 0
.Skip = 3
.Step = 2
End With
.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.Misc(6) = 3
End With
End With
.EndUpdate
End With
|
|
134
|
Defines the color, size, style, skip and step configuration options of the major ticks to be shown on the value-axis
With Graph1
.BeginUpdate
.AutoFit = True
With .ValueAxis.MajorTicks
.Color = "red"
.Width = 4
.Style = 0
.Skip = 3
.Step = 2
End With
.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.Misc(6) = 3
End With
End With
.EndUpdate
End With
|
|
133
|
Defines the color, size and style to display the line of the value-axis
With Graph1
.BeginUpdate
.AutoFit = True
With .ValueAxis.AxisLine
.Color = "red"
.Width = 2
.Style = 0
End With
.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.Misc(6) = 3
End With
End With
.EndUpdate
End With
|
|
132
|
Converts the serie's values to [0,1] range, as percentages (the values area always numbers between 0 and 1)
With Graph1
.BeginUpdate
.AutoFit = True
With .ValueAxis
.AsPercent = True
.Format = "value * 100 + `%`"
End With
.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.Misc(6) = 3
End With
End With
.EndUpdate
End With
|
|
131
|
Defines the rotation angle (in degrees) for the title and labels of the axis, in 'labels,title' format
With Graph1
.BeginUpdate
.AutoFit = True
With .ValueAxis
.Angle = "-90,-90"
.Title = "<b>mil"
.Format = "value ? value format `0` : ``"
End With
.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.Misc(6) = 3
End With
End With
.EndUpdate
End With
|
|
130
|
Defines the title of the value-axis
With Graph1
.BeginUpdate
.AutoFit = True
.ValueAxis.Title = "<b>mil"
.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.Misc(6) = 3
End With
End With
.EndUpdate
End With
|
|
129
|
Specifies the font attributes to apply on the title and labels of the value-axis
With Graph1
.BeginUpdate
.AutoFit = True
.ValueAxis.Tfi = "<fgcolor red> Tahoma 10 bold"
.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.Misc(6) = 3
End With
End With
.EndUpdate
End With
|
|
128
|
Defines the direction of the value axis
With Graph1
.BeginUpdate
.AutoFit = True
.ValueAxis.Reverse = True
.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.Misc(6) = 3
End With
End With
.EndUpdate
End With
|
|
127
|
Aligns the value-axis to bottom/right or top/left side of the view
With Graph1
.BeginUpdate
.AutoFit = True
.ValueAxis.Align = 2
.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.Misc(6) = 3
End With
End With
.EndUpdate
End With
|
|
126
|
Customizes the labels of the value axis
With Graph1
.BeginUpdate
.AutoFit = True
.ValueAxis.Format = "value ? `<c><b>` + (value format `0`) + `</b><br><c><fgcolor lightgray>mil` : ``"
.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.Misc(6) = 3
End With
End With
.EndUpdate
End With
|
|
125
|
Customizes the labels of the value axis
With Graph1
.BeginUpdate
.AutoFit = True
.ValueAxis.Format = "value ? (value format `0`) + ` mil` : ``"
.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.Misc(6) = 3
End With
End With
.EndUpdate
End With
|
|
124
|
Hides the value-axis
With Graph1
.BeginUpdate
.AutoFit = True
.ValueAxis.Visible = False
.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.Misc(6) = 3
End With
End With
.EndUpdate
End With
|
|
123
|
Changes the position of value-axis (click to change the value-axis's position)
' Click event - Occurs when the user presses and then releases the left mouse button over the control.
Private Sub Graph1_Click()
With Graph1
.ValueAxes.Item("a").Position = 0
End With
End Sub
With Graph1
.BeginUpdate
.AutoFit = True
With .ValueAxes
.Add "p"
.Add("a").Color = "teal"
End With
With .CategoryAxis
.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
.MajorGridLines.Color = "lightgray"
End With
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.Axis = "p"
.Type = "Line"
.Misc(6) = 3
End With
With .Add("4458,3037,1018,2470,1784,1018,856")
.Name = "Area"
.Axis = "a"
End With
End With
.Legend.Visible = True
.EndUpdate
End With
|
|
122
|
Access the value-axis giving its name (click to change the value-axis's background)
' Click event - Occurs when the user presses and then releases the left mouse button over the control.
Private Sub Graph1_Click()
With Graph1
.ValueAxes.Item("a").ColorChart = 16119285
.Refresh
End With
End Sub
With Graph1
.BeginUpdate
.AutoFit = True
With .ValueAxes
.Add("p").Start = 0.25
With .Add("a")
.End = 0.25
.Visible = False
End With
End With
With .CategoryAxis
.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
.MajorGridLines.Color = "lightgray"
End With
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.Axis = "p"
.Type = "Line"
.Misc(6) = 3
End With
With .Add("4458,3037,1018,2470,1784,1018,856")
.Name = "Area"
.Axis = "a"
End With
End With
.Legend.Visible = True
.EndUpdate
End With
|
|
121
|
Specifies the name of the value axis to use
With Graph1
.BeginUpdate
.ValueSize = 18
With .ValueAxes
With .Add("pop-ax")
.Name = "pop-ax"
.Start = 0.25
.Align = 0
End With
With .Add("area-ax")
.Name = "area-ax"
.End = 0.25
.Visible = False
.ColorChart = 16119285
End With
End With
With .CategoryAxis
.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
.MajorGridLines.Color = "lightgray"
End With
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.Axis = "pop-ax"
.Misc(6) = 3
.Vertical = True
End With
With .Add("4458,3037,1018,2470,1784,1018,856")
.Name = "Area"
.Axis = "area-ax"
End With
End With
With .Legend
.Visible = True
.Dock = 3
.Align = 0
End With
.EndUpdate
End With
|
|
120
|
Remove a value-axis (click to remove the first value-axis)
' Click event - Occurs when the user presses and then releases the left mouse button over the control.
Private Sub Graph1_Click()
With Graph1
.ValueAxes.Remove 0
End With
End Sub
With Graph1
.BeginUpdate
.AutoFit = True
With .ValueAxes
.Add("p").Start = 0.25
With .Add("a")
.End = 0.25
.Visible = False
.ColorChart = 16119285
End With
End With
With .CategoryAxis
.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
.MajorGridLines.Color = "lightgray"
End With
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.Axis = "p"
.Type = "Line"
.Misc(6) = 3
End With
With .Add("4458,3037,1018,2470,1784,1018,856")
.Name = "Area"
.Axis = "a"
End With
End With
.Legend.Visible = True
.EndUpdate
End With
|
|
119
|
Remove all value-axes (click to clear the value-axes)
' Click event - Occurs when the user presses and then releases the left mouse button over the control.
Private Sub Graph1_Click()
With Graph1
.ValueAxes.Clear
End With
End Sub
With Graph1
.BeginUpdate
.AutoFit = True
With .ValueAxes
.Add("p").Start = 0.25
With .Add("a")
.End = 0.25
.Visible = False
.ColorChart = 16119285
End With
End With
With .CategoryAxis
.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
.MajorGridLines.Color = "lightgray"
End With
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.Axis = "p"
.Type = "Line"
.Misc(6) = 3
End With
With .Add("4458,3037,1018,2470,1784,1018,856")
.Name = "Area"
.Axis = "a"
End With
End With
.Legend.Visible = True
.EndUpdate
End With
|
|
118
|
Adds multiple value-axes
With Graph1
.BeginUpdate
.AutoFit = True
With .ValueAxes
.Add("p").Start = 0.25
With .Add("a")
.End = 0.25
.Visible = False
.ColorChart = 16119285
End With
End With
With .CategoryAxis
.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
.MajorGridLines.Color = "lightgray"
End With
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.Axis = "p"
.Type = "Line"
.Misc(6) = 3
End With
With .Add("4458,3037,1018,2470,1784,1018,856")
.Name = "Area"
.Axis = "a"
End With
End With
.Legend.Visible = True
.EndUpdate
End With
|
|
117
|
Defines the foreground color to show the visible values within the control's legend
With Graph1
.BeginUpdate
.AutoFit = True
.Background(208) = RGB(0,0,1)
.Background(206) = RGB(0,0,1)
.Series.Add("Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)").Name = "Area"
With .Series.Add("Asia(4458), Africa(3037), North America(2470), South America(1784), Antarctica(1400), Europe(1018), Australia/Oceania(856)")
.Name = "Population"
.Visible = False
End With
.Legend.Visible = True
.EndUpdate
End With
|
|
116
|
Defines a different background color to show the visible values within the control's legend
With Graph1
.BeginUpdate
.AutoFit = True
.Background(204) = RGB(240,240,240)
.Series.Add("Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)").Name = "Area"
With .Series.Add("Asia(4458), Africa(3037), North America(2470), South America(1784), Antarctica(1400), Europe(1018), Australia/Oceania(856)")
.Name = "Population"
.Visible = False
End With
.Legend.Visible = True
.EndUpdate
End With
|
|
115
|
Defines a different background color to show the hidden values within the control's legend
With Graph1
.BeginUpdate
.AutoFit = True
.Background(205) = RGB(240,240,240)
.Series.Add("Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)").Name = "Area"
With .Series.Add("Asia(4458), Africa(3037), North America(2470), South America(1784), Antarctica(1400), Europe(1018), Australia/Oceania(856)")
.Name = "Population"
.Visible = False
End With
.Legend.Visible = True
.EndUpdate
End With
|
|
114
|
Defines the foreground color to show the hidden values within the control's legend
With Graph1
.BeginUpdate
.AutoFit = True
.Background(209) = RGB(220,220,220)
.Background(207) = RGB(220,220,220)
.Series.Add("Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)").Name = "Area"
With .Series.Add("Asia(4458), Africa(3037), North America(2470), South America(1784), Antarctica(1400), Europe(1018), Australia/Oceania(856)")
.Name = "Population"
.Visible = False
End With
.Legend.Visible = True
.EndUpdate
End With
|
|
113
|
Hides a symbol or item of the legend by code
With Graph1
.BeginUpdate
.AutoFit = True
.Series.Add("Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)").Name = "Area"
With .Series.Add("Asia(4458), Africa(3037), North America(2470), South America(1784), Antarctica(1400), Europe(1018), Australia/Oceania(856)")
.Name = "Population"
.Visible = False
End With
.Legend.Visible = True
.EndUpdate
End With
|
|
112
|
Defines the percentage of transparency for displaying tooltips on series
With Graph1
.BeginUpdate
.Background(211) = RGB(75,0,0)
.AutoFit = True
.Series.Add "Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)"
.Series.Add "Asia(4458), Africa(3037), North America(2470), South America(1784), Antarctica(1400), Europe(1018), Australia/Oceania(856)"
.Cursor.Visible = True
.EndUpdate
End With
|
|
111
|
Defines the percentage of transparency for displaying tooltips on axes
With Graph1
.BeginUpdate
.Background(210) = RGB(75,0,0)
.AutoFit = True
.Series.Add "Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)"
.Series.Add "Asia(4458), Africa(3037), North America(2470), South America(1784), Antarctica(1400), Europe(1018), Australia/Oceania(856)"
.Cursor.Visible = True
.EndUpdate
End With
|
|
110
|
Specifies the percent of transparency to show the overview-selection (0 indicates opaque, 50% indicates semi-transparent, and 100% indicates fully transparent)
With Graph1
.BeginUpdate
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.Background(203) = RGB(75,0,0)
.ValueSize = 6
.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
With .Series.Add()
.Name = "aapl"
.Data = "AAPL (open),AAPL (high),AAPL (low),AAPL (close)"
.Type = "candle"
End With
.Overview.Visible = True
.EndUpdate
End With
|
|
109
|
Changes the color to show the overview's selection (EBN color)
With Graph1
.BeginUpdate
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.Background(202) = &H1000000
.ValueSize = 6
.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
With .Series.Add()
.Name = "aapl"
.Data = "AAPL (open),AAPL (high),AAPL (low),AAPL (close)"
.Type = "candle"
End With
.Overview.Visible = True
.EndUpdate
End With
|
|
108
|
Changes the color to show the overview's selection (solid color)
With Graph1
.BeginUpdate
.Background(202) = &H10000ff
.ValueSize = 6
.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
With .Series.Add()
.Name = "aapl"
.Data = "AAPL (open),AAPL (high),AAPL (low),AAPL (close)"
.Type = "candle"
End With
.Overview.Visible = True
.EndUpdate
End With
|
|
107
|
Changes the color to show the overview's selection
With Graph1
.BeginUpdate
.Background(202) = RGB(255,0,0)
.ValueSize = 6
.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
With .Series.Add()
.Name = "aapl"
.Data = "AAPL (open),AAPL (high),AAPL (low),AAPL (close)"
.Type = "candle"
End With
.Overview.Visible = True
.EndUpdate
End With
|
|
106
|
Changes the overview's background
With Graph1
.BeginUpdate
.Background(200) = RGB(240,240,240)
.ValueSize = 6
.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
With .Series.Add()
.Name = "aapl"
.Data = "AAPL (open),AAPL (high),AAPL (low),AAPL (close)"
.Type = "candle"
End With
.Overview.Visible = True
.EndUpdate
End With
|
|
105
|
Specifies the visual-appearance to display the left/right parts outside of the overview-selection
With Graph1
.BeginUpdate
.Background(200) = RGB(240,240,240)
.ValueSize = 6
.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
With .Series.Add()
.Name = "aapl"
.Data = "AAPL (open),AAPL (high),AAPL (low),AAPL (close)"
.Type = "candle"
End With
.Overview.Visible = True
.EndUpdate
End With
|
|
104
|
Adds left/ resize-margins of the overview's selection to resize it (EBN)
With Graph1
.BeginUpdate
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.Background(199) = &H1000000
.ValueSize = 6
.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
With .Series.Add()
.Name = "aapl"
.Data = "AAPL (open),AAPL (high),AAPL (low),AAPL (close)"
.Type = "candle"
End With
.Overview.Visible = True
.EndUpdate
End With
|
|
103
|
Adds left/ resize-margins of the overview's selection to resize it
With Graph1
.BeginUpdate
.Background(199) = RGB(1,0,0)
.ValueSize = 6
.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
With .Series.Add()
.Name = "aapl"
.Data = "AAPL (open),AAPL (high),AAPL (low),AAPL (close)"
.Type = "candle"
End With
.Overview.Visible = True
.EndUpdate
End With
|
|
102
|
Changes the colors to show the value's tooltip
With Graph1
.BeginUpdate
.Background(65) = RGB(1,0,0)
.Background(66) = RGB(255,255,255)
.AutoFit = True
.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)").ShowValue = 1
.EndUpdate
End With
|
|
101
|
Changes the visual appearance of the borders of the tooltips
With Graph1
.BeginUpdate
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.Background(64) = &H1000000
.AutoFit = True
.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)").ShowValue = 1
.EndUpdate
End With
|